home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / GfxDemo.asc < prev    next >
Text File  |  1980-03-11  |  2KB  |  109 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. 'Fonction utilisées
  12. 'Amos Rastport     Wb Roll Screen
  13. 'Pal Antiq()       Pal Filter()
  14. 'Pal Grey()        Pal Negativ() 
  15. '
  16. 'Lecture d'une image 
  17. Load Iff Fsel$(""),0
  18. R0=Amos Rastport
  19. '
  20. 'Copie de l'écran Amos 
  21. Screen Open 1,Screen Width,Screen Height,Screen Colour,Screen Mode
  22. Curs Off : Flash Off : Cls 0 : Get Palette(0)
  23. R1=Amos Rastport
  24. Screen Open 2,320,11,2,0
  25. Curs Off : Flash Off : Cls 0 : Colour 1,$FFF
  26. '
  27. 'L'attente et IMPERATIVE 
  28. Wait Vbl 
  29. '
  30. Text 0,7,"Fonction: Wb Roll Screen - Press any key..."
  31. Wait Key 
  32. Screen To Back 2 : Cls 0
  33. Wait Vbl 
  34. Gosub ROLL
  35. '
  36. Text 0,7,"Fonction: Pal Negativ() - Press any key..."
  37. Screen To Front 2
  38. Wait Key 
  39. Screen To Back 2 : Cls 0
  40. Screen 1 : Cls 0
  41. Gosub NEGAT
  42. Gosub ROLL
  43. '
  44. Text 0,7,"Fonction: Pal Antiq() - Press any key..."
  45. Screen To Front 2
  46. Wait Key 
  47. Screen To Back 2 : Cls 0
  48. Screen 1 : Cls 0
  49. Gosub ANTIQ
  50. Gosub ROLL
  51. '
  52. Text 0,7,"Fonction: Pal Grey() - Press any key..."
  53. Screen To Front 2
  54. Wait Key 
  55. Screen To Back 2 : Cls 0
  56. Screen 1 : Cls 0
  57. Gosub GREY
  58. Gosub ROLL
  59. '
  60. Text 0,7,"Fonction: Pal Filter() - Press any key..."
  61. Screen To Front 2
  62. Wait Key 
  63. Screen To Back 2 : Cls 0
  64. Screen 1 : Cls 0
  65. Gosub FILTER
  66. Gosub ROLL
  67. '
  68. Text 0,7,"Press any key to end..."
  69. Screen To Front 2
  70. Wait Key 
  71. '
  72. Screen Close 0
  73. Screen Close 1
  74. Screen Close 2
  75. End 
  76. '
  77. ROLL:
  78. Wb Roll Screen R0 To R1,9
  79. Screen 2
  80. Return 
  81. '
  82. ANTIQ:
  83. Screen 1
  84. For T=0 To Screen Colour-1
  85.    Colour T,Pal Antiq(Colour(T))
  86. Next T
  87. Return 
  88. '
  89. FILTER:
  90. Screen 1
  91. For T=0 To Screen Colour-1
  92.    Colour T,Pal Filter(Colour(T),$F0F)
  93. Next T
  94. Return 
  95. '
  96. GREY:
  97. Screen 1
  98. For T=0 To Screen Colour-1
  99.    Colour T,Pal Grey(Colour(T))
  100. Next T
  101. Return 
  102. '
  103. NEGAT:
  104. Screen 1
  105. For T=0 To Screen Colour-1
  106.    Colour T,Pal Negativ(Colour(T))
  107. Next T
  108. Return 
  109.